home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / MAENNEL.TCL < prev    next >
Encoding:
Text File  |  2002-07-29  |  12.2 KB  |  424 lines
  1. #
  2. #   Zustands-▄berwachungs-Script
  3. #   State Watch Script
  4. #
  5. #   Maennel
  6. #
  7. #   created:    15-Jun-2000 Bernd
  8. #      upd.:    02-Mar-2001
  9. #               16-Mar-2001     floh    neuer State: crash, wird aktiviert bei schwerer Kollission
  10. #               21-Mar-2001     floh    removed walk stuff, only running supported   
  11. #               30-Mar-2001     floh    switch to falling states, if jump timed out
  12. #               18-Jan-2002     floh    added 'isjumping' handling
  13. #
  14. #   (C) COPYRIGHT 2000,2001 RADONLABS GMBH
  15. #
  16.  
  17. # --------------------------------------------------------
  18. #                     M A E N N E L
  19. # --------------------------------------------------------
  20. proc maennelwatch_normal {} {
  21.  
  22.     if {[.iskilled] == "true"} {
  23.         .announcestate gameend
  24.     } elseif {[.getdistancetank] < 0} {
  25.         .announcestate gameend
  26.     } elseif {[.isengineworking] == "false"} {
  27.         if {"true" == [.canfly]} {
  28.             .announcestate swimming
  29.         } else {
  30.             .announcestate falling
  31.         }
  32.     } elseif {[.islanded] == "true"} {
  33.         .announcestate landen
  34.     } elseif {"false" == [.canfly]} {
  35.         .announcestate falling
  36.     } elseif {[.isturbomove] == "true"} {
  37.         .announcestate turbo
  38.     } elseif {[.iscrashed] == "true"} {
  39.         .announcestate crash
  40.     }
  41. }
  42.  
  43. proc maennelwatch_landen {} {
  44.  
  45.     if {[.iskilled] == "true"} {
  46.         .announcestate gameend
  47.     } elseif {[.isanimfinished] == "true"} {
  48.         # sonst wird "stop"-Animation abgespielt
  49.         .announcestate stand
  50.     }
  51. }
  52.  
  53. proc maennelwatch_landen2 {} {
  54.  
  55.     if {[.iskilled] == "true"} {
  56.         .announcestate gameend
  57.     } elseif {[.isanimfinished] == "true"} {
  58.         # sonst wird "stop"-Animation abgespielt
  59.         .announcestate stand
  60.     }
  61. }
  62.  
  63. proc maennelwatch_swimming {} {
  64.  
  65.     if {[.iskilled] == "true"} {
  66.         .announcestate gameend
  67.     } elseif {[.getdistancetank] < 0} {
  68.         .announcestate gameend
  69.     } elseif {[.isengineworking] == "true"} {
  70.         .announcestate normal
  71.     } elseif {[.islanded] == "true"} {
  72.         .announcestate landen
  73.     } elseif {[.isturbomove] == "true"} {
  74.         .announcestate turbo
  75.     } elseif {"false" == [.canfly]} {
  76.         .announcestate falling
  77.     }
  78. }
  79.  
  80. proc maennelwatch_jumprun {} {
  81.     if {[.iskilled] == "true"} {
  82.         .announcestate gameend
  83.     } elseif {"true" == [.isengineworking]} {
  84.         .announcestate normal
  85.     } elseif {[.islanded] == "true"} {
  86.         .announcestate run
  87.         .triggermanually
  88.     } elseif {[.iscrashed] == "true"} {
  89.         .announcestate crash
  90.     } elseif {[.iscinematicfinished] == "true"} {
  91.         .announcestate falling
  92.     }
  93. }
  94.  
  95. proc maennelwatch_jumpstand {} {
  96.     if {[.iskilled] == "true"} {
  97.         .announcestate gameend
  98.     } elseif {"true" == [.isengineworking]} {
  99.         .announcestate normal
  100.     } elseif {[.islanded] == "true"} {
  101.         .announcestate landen2
  102.     } elseif {[.iscrashed] == "true"} {
  103.         .announcestate crash
  104.     } elseif {[.iscinematicfinished] == "true"} {
  105.         .announcestate falling
  106.     }
  107. }
  108.  
  109. proc maennelwatch_falling {} {
  110.  
  111.     if {[.iskilled] == "true"} {
  112.         .announcestate gameend
  113.     } elseif {[.islanded] == "true"} {
  114.         .announcestate landen
  115.     } elseif {"true" == [.isengineworking]} {
  116.         .announcestate normal
  117.     } elseif {[.iscrashed] == "true"} {
  118.         .announcestate crash
  119.     } elseif {[.isstatetimeover] == "true"} {
  120.         puts "*** was:(RESTORE PLAYER POSITION) now:(DIE!!!)***"
  121. #        .restoresavepos        
  122. #        .announcestate landen
  123.         .announcestate gameend
  124.     }
  125. }
  126.  
  127. proc maennelwatch_run {} {
  128.     if {[.iskilled] == "true"} {
  129.         .announcestate gameend
  130.     } elseif {[.iscreatingbuilding] == "true"} {
  131.         .announcestate createbuildingwalk
  132.     } elseif {[.isfalling] == "true"} {
  133.         .announcestate falling
  134.     } elseif {[.isengineworking] == "false"} {
  135.         # bitte diesen Test vor dem Sprung!
  136.         .announcestate runstop
  137.     } elseif {([.isjumping] == "true") && ([.iswalkingbackwards] == "false")} {
  138.         .announcestate jumprun
  139.     } elseif {[.intrademode] == "true"} {
  140.         .announcestate trademenuwalk
  141.     } elseif {[.isinstoragemode] == "true"} {
  142.         .announcestate storagemenuwalk
  143.     } elseif {[.isintransformmode] == "true"} {
  144.         .announcestate transformmenuwalk
  145.     } elseif {[.ismenuopen] == "true"} {
  146.         # open menu but no special case: standard menu
  147.         .announcestate walkmenu
  148.     }
  149. }
  150.  
  151. proc maennelwatch_runstop {} {
  152.  
  153.     if {[iskilled] == "true"} {
  154.         .announcestate gameend
  155.     } elseif {[.isanimfinished] == "true"} {
  156.         .announcestate stand
  157.     } 
  158.     
  159.     # fuer "Weiterlaufen und Springen sind noch keine
  160.     # Entscheidungen getroffen
  161. }
  162.  
  163. proc maennelwatch_stand {} {
  164.     
  165.     # from stand: trade, open standars menu, enter vehicle
  166.     if {[.iskilled] == "true"} {
  167.         .announcestate gameend
  168.     } elseif {[.iscreatingbuilding] == "true"} {
  169.         .announcestate createbuildingwalk
  170.     } elseif {[.isfalling] == "true"} {
  171.         .announcestate falling
  172.     } elseif {([.isjumping] == "true")} {
  173.         .announcestate jumpstand
  174.     } elseif {[.intrademode] == "true"} {
  175.         .announcestate trademenuwalk
  176.     } elseif {[.ismenuopen] == "true"} {
  177.         # open menu, but trade mode was handled before: standard- or housemenu
  178.         if {[.getcurrentpossesshouse] != "null"} {
  179.             .setsavepossesshouse true
  180.             .announcestate possess
  181.         } else {
  182.             .announcestate walkmenu
  183.         }
  184.     } elseif {[.ispossessingvehicle] == "true"} {
  185.     
  186.         # I enter a vehicle from "maennel"
  187.         .announcestate possessingvehicle
  188.     } elseif {[.ispossessingbuilding] == "true"} {
  189.         .announcestate possessingbuilding
  190.     } elseif {[.isengineworking] == "true"} {
  191.         .announcestate run
  192.     }
  193. }
  194.  
  195. proc maennelwatch_possess {} {
  196.  
  197.     # from possess: store and transform artefacts, enter buildings
  198.     # and vehicles
  199.     if {[.iskilled] == "true"} {
  200.         .announcestate gameend
  201.     } elseif {[.isfalling] == "true"} {
  202.         .announcestate falling
  203.     } elseif {[.isinstoragemode] == "true"} {
  204.         .announcestate storagemenuwalk
  205.     } elseif {[.isintransformmode] == "true"} {
  206.         .announcestate transformmenuwalk
  207.     } elseif {[.ispossessingvehicle] == "true"} {
  208.     
  209.         # I enter a vehicle from "maennel"
  210.         .announcestate possessingvehicle
  211.     } elseif {[.ispossessingbuilding] == "true"} {
  212.         .announcestate possessingbuilding
  213.     } elseif {[.ismenuopen] == "false"} {
  214.         # we closed the menu
  215.         .announcestate stand
  216.     } elseif {[.getcurrentpossesshouse] == "null"} {
  217.         # haus kann ja explodieren, dann ist plattform weg und wir stehen so rum...
  218.         .announcestate stand
  219.     }
  220. }
  221.  
  222. proc maennelwatch_possessingvehicle {} {
  223.     if {[.iskilled] == "true"} {
  224.         .announcestate gameend
  225.     } elseif {[.ispossessingvehicle] == "false"} {
  226.         .announcestate stand
  227.     }
  228. }
  229.  
  230. proc maennelwatch_possessingbuilding {} {
  231.     if {[.iskilled] == "true"} {
  232.         .announcestate gameend
  233.     } elseif {[.ispossessingbuilding] == "false"} {
  234.         .announcestate stand
  235.     }
  236. }
  237.  
  238. proc maennelwatch_walkmenu {} {
  239.  
  240.     if {[.iskilled] == "true"} {
  241.         .announcestate gameend
  242.     } elseif {[.isusingartefact] == "true"} {
  243.         .announcestate useartefactwalk
  244.     } elseif {[.ismenuopen] == "false"} {
  245.         .announcestate stand
  246.     }
  247. }
  248.  
  249. proc maennelwatch_useartefactwalk {} {
  250.  
  251.     if {[.iskilled] == "true"} {
  252.         .announcestate gameend
  253.     } elseif {[.iscreatingbuilding] == "true"} {
  254.         .announcestate createbuildingwalk
  255.     } elseif {[.isusingartefact] == "false"} {
  256.         .announcestate stand
  257.     }
  258. }
  259.  
  260. proc maennelwatch_trademenuwalk {} {
  261.  
  262.     if {[.iskilled] == "true"} {
  263.         .announcestate gameend
  264.     } elseif {[.intrademode] == "false"} {
  265.         .announcestate stand
  266.     }
  267. }
  268.  
  269. proc maennelwatch_storagemenuwalk {} {
  270.  
  271.     if {[.iskilled] == "true"} {
  272.         .announcestate gameend
  273.     } elseif {[.isinstoragemode] == "false"} {
  274.         .announcestate stand
  275.     }
  276. }
  277.  
  278. proc maennelwatch_transformmenuwalk {} {
  279.  
  280.     if {[.iskilled] == "true"} {
  281.         .announcestate gameend
  282.     } elseif {[.isintransformmode] == "false"} {
  283.         .announcestate stand
  284.     }
  285. }
  286.  
  287. proc maennelwatch_createbuildingwalk {} {
  288.  
  289.     if {[.iskilled] == "true"} {
  290.         .announcestate gameend
  291.     } elseif {[.iscreatingbuilding] == "false"} {
  292.         .announcestate stand
  293.     }
  294. }
  295.  
  296. proc maennelwatch_turbo {} {
  297.     if {[.iskilled] == "true"} {
  298.         .announcestate gameend
  299.     } elseif {[.getdistancetank] < 0} {
  300.         .announcestate gameend
  301.     } elseif {[.isstatetimeover] == "true"} {
  302.         .announcestate normal
  303.     }
  304. }
  305.  
  306. proc maennelwatch_crash {} {
  307.  
  308.     if {[.iskilled] == "true"} {
  309.         .announcestate gameend
  310.     } elseif {[.isanimfinished] == "true"} {
  311.         if {[.canfly] == "true"} {
  312.             .announcestate normal
  313.         } else {
  314.             .announcestate falling
  315.         }
  316.     }
  317. }
  318.  
  319. proc maennelwatch_gameend {} {
  320.     # empty!
  321. }
  322.  
  323. proc maennelwatch_cinematic {} {
  324.  
  325.     if {[.iscinematicfinished] == "true"} {
  326.         .announcestate normal
  327.     }
  328. }    
  329.  
  330. proc maennelwatch_tutorialstart {} {
  331.      if {[.isanimfinished] == "true"} {
  332.          .announcestate jumpstand
  333.          # let's see if this works, simpler then using
  334.          # event callback handlers
  335.          # /world.sethandcontrol [psel]
  336.      }
  337. }    
  338.  
  339. #-------------------------------------------------------------------------------
  340. proc maennel_setjumprunsequence {} {
  341.  
  342.     # bitte Pfad anpassen
  343.     set p [.getprototype]
  344.     .setcinematicsequence "/data/[$p.getname]/visual/cinematics/jumpsequence"
  345. }
  346.  
  347. #-------------------------------------------------------------------------------
  348. proc maennel_setjumpstandsequence {} {
  349.  
  350.     # bitte Pfad anpassen
  351.     set p [.getprototype]
  352.     .setcinematicsequence "/data/[$p.getname]/visual/cinematics/hopsequence"
  353. }
  354.  
  355. #-------------------------------------------------------------------------------
  356. proc maennel_setjumpruntoflysequence {} {
  357.  
  358.     # bitte Pfad anpassen
  359.     set p [.getprototype]
  360.     .setcinematicsequence "/data/[$p.getname]/visual/cinematics/jumptoflysequence"
  361. }
  362.  
  363. #-------------------------------------------------------------------------------
  364. proc maennel_setjumpstandtoflysequence {} {
  365.  
  366.     # bitte Pfad anpassen
  367.     set p [.getprototype]
  368.     .setcinematicsequence "/data/[$p.getname]/visual/cinematics/jumptoflysequence"
  369. }
  370.  
  371. #-------------------------------------------------------------------------------
  372. proc maennel_setjumpfallingtoflysequence {} {
  373.  
  374.     # bitte Pfad anpassen
  375.     set p [.getprototype]
  376.     .setcinematicsequence "/data/[$p.getname]/visual/cinematics/jumptoflysequence"
  377. }
  378.  
  379. # -------------------------
  380. proc remove_possesicon {} {
  381.     if  [exists /world/gui/posses]  { delete /world/gui/posses }
  382. }
  383.  
  384. #-------------------------------------------------------------------------------
  385. proc possesschanged {} {
  386.     # called by /data/physics/maennel.tcl
  387.     
  388.     # Test: Diese Meldung kommt recht oft und muellt alles zu, weil die state-
  389.     # switches haeufig passieren. Deshalb mal nur, wenn ich reinrenne
  390.     if {[.getstate] == "run"} {
  391.         /game/handler/feedback.registeruse
  392.     }
  393. }
  394.  
  395. #-------------------------------------------------------------------------------
  396. proc disconnect_carrier {} {
  397.  
  398.     /world.setviewercarrier null
  399. }
  400.  
  401. #-------------------------------------------------------------------------------
  402. proc connect_carrier {} {
  403.  
  404.     set clan [/world.getuserclan]
  405.     set maennel [$clan.getmaennel]
  406.     /world.setviewercarrier $maennel
  407. }
  408.  
  409. #-------------------------------------------------------------------------------
  410. #   Callback when quick slot spell changes. This attaches the new quickslot
  411. #   to the Maennel's right hand.
  412. #
  413. #-------------------------------------------------------------------------------
  414. proc maennel_quickslotchanged {} {
  415.     set currSpell [.getquickslot]
  416.     puts "*** QUICKSLOT CHANGED TO: $currSpell"
  417.     if {$currSpell == "null"} {
  418.         .clearattachslottarget 1
  419.     } else {
  420.         .setattachslottarget 1 [$currSpell.getprototype]
  421.     }
  422. }
  423.  
  424.